﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class SaldospimFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As SaldospimBE
        Dim tmpSaldospim As SaldospimBE = New SaldospimBE()
        Try
            With tmpSaldospim
                .Clave = convertDTFromDb.ConvertString(dr.Item("Clave"))
                .IdEmpresa = convertDTFromDb.ConvertShort(dr.Item("IdEmpresa"))
                .Nombre = convertDTFromDb.ConvertString(dr.Item("Nombre"))
                .Saldo = convertDTFromDb.ConvertDecimal(dr.Item("Saldo"))
                .SaldoAct = convertDTFromDb.ConvertDecimal(dr.Item("SaldoAct"))
            End With
            Return tmpSaldospim
        Catch ex As Exception
            Throw
        Finally
            tmpSaldospim = Nothing
        End Try
    End Function
End Class
